home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_09 / rigg / f77 / prob < prev    next >
Encoding:
Text File  |  1995-01-01  |  365 b   |  14 lines
  1. C > :0.F77.Prob
  2.       REAL FUNCTION PROB
  3. C function to return a pseudo-random value between 0 and 1
  4.       INTEGER A, M, Q, R, LO, HI, TEST
  5.       DATA A,M,Q,R/16807,2147483647,127773,2836/
  6. C     DATA SEED/65535/
  7.       HI = SEED / Q
  8.       LO = SEED MOD Q
  9.       TEST = A*LO - R*HI
  10.       SEED = TEST
  11.       IF (TEST.LE.0) SEED = TEST + M
  12.       PROB = SEED / M
  13.       END
  14.